home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / Devices.p < prev    next >
Encoding:
Text File  |  1991-04-05  |  2.4 KB  |  109 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {}
  4. {Created: Sunday, January 6, 1991 at 10:28 PM}
  5. {    Devices.p}
  6. {    Pascal Interface to the Macintosh Libraries}
  7. {}
  8. {        Copyright Apple Computer, Inc.     1985-1990}
  9. {        All rights reserved}
  10. {}
  11.  
  12.  
  13. {$IFC UNDEFINED UsingIncludes}
  14. {$SETC UsingIncludes := 0}
  15. {$ENDC}
  16.  
  17.  
  18. unit Devices;
  19. interface
  20.     uses
  21.         Types, OSUtils;
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  41.     const
  42.         newSelMsg = 12;
  43.         fillListMsg = 13;
  44.         getSelMsg = 14;
  45.         selectMsg = 15;
  46.         deselectMsg = 16;
  47.         terminateMsg = 17;
  48.         buttonMsg = 19;
  49.         chooserID = 1;
  50.         initDev = 0;        {Time for cdev to initialize itself}
  51.         hitDev = 1;         {Hit on one of my items}
  52.         closeDev = 2;       {Close yourself}
  53.         nulDev = 3;         {Null event}
  54.         updateDev = 4;      {Update event}
  55.         activDev = 5;       {Activate event}
  56.         deactivDev = 6;     {Deactivate event}
  57.         keyEvtDev = 7;      {Key down/auto key}
  58.         macDev = 8;         {Decide whether or not to show up}
  59.         undoDev = 9;
  60.         cutDev = 10;
  61.         copyDev = 11;
  62.         pasteDev = 12;
  63.         clearDev = 13;
  64.         cursorDev = 14;
  65.         cdevGenErr = -1;    {General error; gray cdev w/o alert}
  66.         cdevMemErr = 0;     {Memory shortfall; alert user please}
  67.         cdevResErr = 1;     {Couldn't get a needed resource; alert}
  68.         cdevUnset = 3;      { cdevValue is initialized to this}
  69.  
  70. { Monitors control panel messages }
  71.         initMsg = 1;        {initialization}
  72.         okMsg = 2;          {user clicked OK button}
  73.         cancelMsg = 3;      {user clicked Cancel button}
  74.         hitMsg = 4;         {user clicked control in Options dialog}
  75.         nulMsg = 5;         {periodic event}
  76.         updateMsg = 6;      {update event}
  77.         activateMsg = 7;    {not used}
  78.         deactivateMsg = 8;  {not used}
  79.         keyEvtMsg = 9;      {keyboard event}
  80.         superMsg = 10;      {show superuser controls}
  81.         normalMsg = 11;     {show only normal controls}
  82.         startupMsg = 12;    {code has been loaded}
  83.  
  84.     function PBControlSync (paramBlock: ParmBlkPtr): OSErr;
  85.     inline
  86.         $205F, $A004, $3E80;
  87.     function PBControlAsync (paramBlock: ParmBlkPtr): OSErr;
  88.     inline
  89.         $205F, $A404, $3E80;
  90.  
  91.     function PBStatusSync (paramBlock: ParmBlkPtr): OSErr;
  92.     inline
  93.         $205F, $A005, $3E80;
  94.     function PBStatusAsync (paramBlock: ParmBlkPtr): OSErr;
  95.     inline
  96.         $205F, $A405, $3E80;
  97.  
  98.     function PBKillIOSync (paramBlock: ParmBlkPtr): OSErr;
  99.     inline
  100.         $205F, $A006, $3E80;
  101.     function PBKillIOAsync (paramBlock: ParmBlkPtr): OSErr;
  102.     inline
  103.         $205F, $A406, $3E80;
  104.  
  105.  
  106. implementation
  107. end.
  108.  
  109.